home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / lineed.zip / XMTASK.C < prev    next >
Text File  |  1992-02-07  |  905b  |  71 lines
  1. /**********************************************************/
  2. /* Give up a time slice to the multitasker                */
  3. /**********************************************************/
  4.  
  5. #ifdef __TURBOC__
  6.  #define _asm asm
  7.  #pragma inline
  8. #else
  9.  #pragma optimize("eg",off)
  10. #endif
  11.  
  12.  
  13.  
  14. void pascal 
  15. pause_dv (void)
  16. {
  17.     _asm  mov ax,101ah
  18.     _asm  int 15h
  19.     _asm  mov ax,1000h
  20.     _asm  int 15h
  21.     _asm  mov ax,1025h
  22.     _asm  int 15h
  23. }
  24.  
  25.  
  26.  
  27. void pascal
  28. pause_ddos (void)
  29. {
  30.     _asm  int 244
  31. }
  32.  
  33.  
  34.  
  35. void pascal
  36. pause_tv (void)
  37. {
  38.     _asm  mov ax,1000h
  39.     _asm  int 15h
  40. }
  41.  
  42.  
  43.  
  44.  
  45. void pascal
  46. pause_mos (void)
  47. {
  48.     _asm  mov ax,703h
  49.     _asm  mov bx,3h
  50.     _asm  xor cx,cx
  51.     _asm  mov dx,cx
  52.     _asm  int 38h
  53. }
  54.  
  55.  
  56.  
  57. void pascal
  58. pause_os2 (void)
  59. {
  60.     _asm  mov ax,1680h
  61.     _asm  int 2fh
  62. }
  63.  
  64.  
  65.  
  66. void pascal
  67. pause_dos (void)
  68. {
  69.     _asm  int 28h
  70. }
  71.